inherited sprSubServices: TsprSubServices
  Caption = #1057#1087#1088#1072#1074#1086#1095#1085#1080#1082' '#1091#1089#1083#1091#1075', '#1074#1082#1083#1102#1095#1077#1085#1085#1099#1093' '#1074' '#1089#1086#1076#1077#1088#1078#1072#1085#1080#1077' '#1078#1080#1083#1100#1103
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    Top = 25
    Height = 529
    inherited PageControl1: TPageControl
      Height = 529
      ActivePage = tsForm
      inherited tsTab: TTabSheet
        inherited GroupBox3: TGroupBox
          Height = 501
          inherited dbgRefer: TDBGridEh
            Height = 484
            Columns = <
              item
                EditButtons = <>
                FieldName = 'ID'
                Footers = <>
              end
              item
                EditButtons = <>
                FieldName = 'NAME'
                Footers = <>
                Width = 272
              end
              item
                EditButtons = <>
                FieldName = 'SHORTNAME'
                Footers = <>
                Width = 165
              end
              item
                EditButtons = <>
                FieldName = 'CREATEDATE'
                Footers = <>
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'CREATEUSERID'
                Footers = <>
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'MODIFYDATE'
                Footers = <>
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'MODIFYUSERID'
                Footers = <>
                Visible = False
              end>
          end
        end
      end
      inherited tsForm: TTabSheet
        inherited GroupBox2: TGroupBox
          Top = 0
          Width = 784
          Height = 501
          Align = alClient
          object Label1: TLabel [0]
            Left = 97
            Top = 27
            Width = 17
            Height = 13
            Alignment = taRightJustify
            Caption = #1048#1044
          end
          object Label2: TLabel [1]
            Left = 64
            Top = 51
            Width = 50
            Height = 13
            Alignment = taRightJustify
            Caption = #1053#1072#1079#1074#1072#1085#1080#1077
          end
          object Label3: TLabel [2]
            Left = 15
            Top = 75
            Width = 99
            Height = 13
            Alignment = taRightJustify
            Caption = #1050#1086#1088#1086#1090#1082#1086#1077' '#1085#1072#1079#1074#1072#1085#1080#1077
          end
          inherited pnlButtons: TPanel
            Top = 468
            Width = 780
            inherited SpeedButton1: TSpeedButton
              Left = 581
            end
            inherited SpeedButton2: TSpeedButton
              Left = 683
            end
          end
          object dbeID: TDBEditEh
            Left = 120
            Top = 24
            Width = 81
            Height = 19
            AlwaysShowBorder = True
            Color = clInactiveCaptionText
            DataField = 'ID'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            ReadOnly = True
            TabOrder = 1
            Visible = True
          end
          object dbeName: TDBEditEh
            Left = 120
            Top = 48
            Width = 297
            Height = 19
            AlwaysShowBorder = True
            DataField = 'NAME'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            TabOrder = 2
            Visible = True
          end
          object dbeShortName: TDBEditEh
            Left = 120
            Top = 72
            Width = 297
            Height = 19
            AlwaysShowBorder = True
            DataField = 'SHORTNAME'
            DataSource = dscRefer
            EditButtons = <>
            Flat = True
            TabOrder = 3
            Visible = True
          end
        end
      end
    end
  end
  inherited GroupBox1: TGroupBox
    Height = 0
    Visible = False
  end
  inherited dsRefer: TpFIBDataSet
    UpdateSQL.Strings = (
      'UPDATE SUB_SERVICES'
      'SET '
      '    NAME = :NAME,'
      '    SHORTNAME = :SHORTNAME'
      'WHERE'
      '    ID = :OLD_ID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    SUB_SERVICES'
      'WHERE'
      '        ID = :OLD_ID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO SUB_SERVICES('
      '    NAME,'
      '    SHORTNAME'
      ')'
      'VALUES('
      '    :NAME,'
      '    :SHORTNAME'
      ')'
      'returning id')
    RefreshSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME,'
      '    SHORTNAME,'
      '    CREATEDATE,'
      '    CREATEUSERID,'
      '    MODIFYDATE,'
      '    MODIFYUSERID'
      'FROM SUB_SERVICES '
      'WHERE SUB_SERVICES.ID = :OLD_ID'
      '    ')
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME,'
      '    SHORTNAME,'
      '    CREATEDATE,'
      '    CREATEUSERID,'
      '    MODIFYDATE,'
      '    MODIFYUSERID'
      'FROM'
      '    SUB_SERVICES ')
    UpdateTransaction = trRefer
    object dsReferID: TFIBIntegerField
      DisplayLabel = #1048#1044
      DisplayWidth = 6
      FieldName = 'ID'
    end
    object dsReferNAME: TFIBStringField
      DisplayLabel = #1053#1072#1079#1074#1072#1085#1080#1077
      DisplayWidth = 30
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
    object dsReferSHORTNAME: TFIBStringField
      DisplayLabel = #1050#1086#1088#1086#1090#1082#1086#1077' '#1085#1072#1079#1074#1072#1085#1080#1077
      DisplayWidth = 20
      FieldName = 'SHORTNAME'
      Size = 30
      EmptyStrToNull = True
    end
    object dsReferCREATEDATE: TFIBDateField
      FieldName = 'CREATEDATE'
    end
    object dsReferCREATEUSERID: TFIBIntegerField
      FieldName = 'CREATEUSERID'
    end
    object dsReferMODIFYDATE: TFIBDateField
      FieldName = 'MODIFYDATE'
    end
    object dsReferMODIFYUSERID: TFIBIntegerField
      FieldName = 'MODIFYUSERID'
    end
  end
end
